home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / TREES.BUG < prev   
Text File  |  1983-09-26  |  479b  |  8 lines
  1. make "description [TREES; from "Logo for the Apple II", pgs. 63-64]
  2. define "vee [[][left 45][forward 10][back 10][right 90][forward 10][back 10][left 45]]
  3. define "branch [[][forward 15][vee][forward 15][vee][forward 10][back 40]]
  4. define "bush [[][left 60][repeat 4 [branch right 30]][branch][left 60]]
  5. define "greentree [[][forward 50][bush][back 50]]
  6. define "treemove [[][penup][right 90][forward 80][left 90][pendown]]
  7. define "trees [[][repeat 3 [greentree treemove]]]
  8.